RANDOM.LSP[4,KMC] - www.SailDart.org

perm filename RANDOM.LSP[4,KMC] blob sn#012465 filedate 1972-11-14 generic text, type T, neo UTF8


(DEFPROP RAISE
 (LAMBDA NIL
  (PROG NIL
        (SETQ FEAR (ADD1 FEAR))
        (SETQ ANGER (ADD1 ANGER))
        (SETQ MISTRUST (ADD1 MISTRUST))
        (SETQ MISTRUST0 (ADD1 MISTRUST0))
        (SETQ FJUMP (SETQ AJUMP NIL))))
EXPR)

(DEFPROP FLAREFER
 (LAMBDA (INP) NIL)
EXPR)